Voorbeeld van de functie MIRR

Dit voorbeeld maakt gebruik van de functie MIRR om de gewijzigde interne rentabiliteit te geven voor een reeks cash flows in de matrix Values(). LoanAPR vertegenwoordigt de rente over de financiering en InvAPR vertegenwoordigt de rente die wordt ontvangen over herinvestering.

Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double    ' Stelt een matrix samen.
LoanAPR = .1    ' Rente over financiering.
InvAPR = .12    ' Herinvesteringsrente.
Fmt = "#0,00"    ' Definieer valutanotatie.
Values(0) = -70000    ' Opstartkosten van bedrijf.
' Positieve cash flows die inkomsten voor vier opeenvolgende jaren uitdrukken.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = MIRR(Values(), LoanAPR, InvAPR)    ' Bereken interne rentabiliteit.
Msg = "De gewijzigde interne rentabiliteit voor deze cash flows is"
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
MsgBox Msg    ' Geef interne rentabiliteit
        ' weer.